home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib42b.dsk / REPEAT DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  461b  |  17 lines
  1. 10 <UNKNOWN TOKEN>
  2. 15  HOME 
  3. 20  INPUT "HOW MANY STUDENTS ";S
  4. 25  DIM N$(S),G$(S)
  5. 30 <UNKNOWN TOKEN>
  6. 40 N = N +1
  7. 50  INPUT "ENTER THE STUDENT'S NAME ";N$(N)
  8. 60  INPUT "ENTER THE STUDENT'S GRADE ";G$(N)
  9. 65  PRINT 
  10. 70 <UNKNOWN TOKEN>N = S
  11. 75 N = 0
  12. 80  HOME : PRINT "      STUDENT              GRADE"
  13. 90 <UNKNOWN TOKEN>
  14. 100 N = N +1:S1 = (20 - LEN(N$(N)))/2:S2 = (20 - LEN(G$(N)))/2
  15. 110  PRINT  SPC( S1);N$(N); SPC( S1 +S2);G$(N)
  16. 120 <UNKNOWN TOKEN>N = S
  17. 130  END